Personal Computer World 2008 February/PCWFEB08.iso/Software/Resources/Developers/XAMPP 1.5.4/Windows installer/xampp-win32-1.5.4-installer.exe/xampp/php/pear/SOAP/Value.php

PHP Script | 2006-04-07 | 6.6 KB | 233 lines

<?php
/**
 * This file contains the code for converting values between SOAP and PHP.
 *
 * PHP versions 4 and 5
 *
 * LICENSE: This source file is subject to version 2.02 of the PHP license,
 * that is bundled with this package in the file LICENSE, and is available at
 * through the world-wide-web at http://www.php.net/license/2_02.txt.  If you
 * did not receive a copy of the PHP license and are unable to obtain it
 * through the world-wide-web, please send a note to [e-mail] so we can
 * mail you a copy immediately.
 *
 * @category   Web Services
 * @package    SOAP
 * @author     Dietrich Ayala <[e-mail]> Original Author
 * @author     Shane Caraveo <[e-mail]>   Port to PEAR and more
 * @author     Chuck Hagenbuch <[e-mail]>   Maintenance
 * @author     Jan Schneider <[e-mail]>       Maintenance
 * @copyright  2003-2005 The PHP Group
 * @license    http://www.php.net/license/2_02.txt  PHP License 2.02
 * @link       http://pear.php.net/package/SOAP
 */

require_once 'SOAP/Base.php';

/**
 * SOAP::Value
 *
 * This class converts values between PHP and SOAP.
 *
 * Originally based on SOAPx4 by Dietrich Ayala
 * http://dietrich.ganx4.com/soapx4
 *
 * @access public
 * @package SOAP
 * @author Shane Caraveo <[e-mail]> Conversion to PEAR and updates
 * @author Dietrich Ayala <[e-mail]> Original Author
 */
class SOAP_Value
{
    /**
     *
     *
     * @var  string
     */
    var $value = null;

    /**
     *
     * @var  string
     */
    var $name = '';

    /**
     *
     * @var  string
     */
    var $type = '';

    /**
     * Namespace
     *
     * @var  string
     */
    var $namespace = '';
    var $type_namespace = '';

    var $attributes = array();

    /**
     *
     * @var string
     */
    var $arrayType = '';

    var $options = array();

    var $nqn;
    var $tqn;

    /**
     * Constructor.
     *
     * @param string $name        name of the soap-value {namespace}name
     * @param mixed  $type        soap value {namespace}type, if not set an automatic
     * @param mixed  $value       value to set
     * @param array  $attributes  (optional) Attributes.
     */
    function SOAP_Value($name = '', $type = false, $value = null, $attributes = array())
    {
        // Detect type if not passed.
        $this->nqn =& new QName($name);
        $this->name = $this->nqn->name;
        $this->namespace = $this->nqn->namespace;
        $this->tqn =& new QName($type);
        $this->type = $this->tqn->name;
        $this->type_prefix = $this->tqn->ns;
        $this->type_namespace = $this->tqn->namespace;
        $this->value =& $value;
        $this->attributes = $attributes;
    }

    /**
     * Serialize.
     *
     * @param SOAP_Base &$serializer  A SOAP_Base instance or subclass to serialize with.
     *
     * @return string  XML representation of $this.
     */
    function &serialize(&$serializer)
    {
        return $serializer->_serializeValue($this->value, $this->name, $this->type, $this->namespace, $this->type_namespace, $this->options, $this->attributes, $this->arrayType);
    }

}

/**
 * SOAP::Header
 *
 * This class converts values between PHP and SOAP. It is a simple
 * wrapper around SOAP_Value, adding support for SOAP actor and
 * mustunderstand parameters.
 *
 * Originally based on SOAPx4 by Dietrich Ayala
 * http://dietrich.ganx4.com/soapx4
 *
 * @access public
 * @package SOAP
 * @author Shane Caraveo <[e-mail]> Conversion to PEAR and updates
 * @author Dietrich Ayala <[e-mail]> Original Author
 */
class SOAP_Header extends SOAP_Value
{
    /**
     * Constructor
     *
     * @param string  $name            name of the soap-value {namespace}name
     * @param mixed   $type            soap value {namespace}type, if not set an automatic
     * @param mixed   $value           value to set
     * @param integer $mustunderstand  Zero or one.
     * @param mixed   $attributes      (optional) Attributes.
     */
    function SOAP_Header($name = '', $type, $value,
                         $mustunderstand = 0,
                         $attributes = array())
    {
        if (!is_array($attributes)) {
            $actor = $attributes;
            $attributes = array();
        }

        parent::SOAP_Value($name, $type, $value, $attributes);

        if (isset($actor)) {
            $this->attributes['SOAP-ENV:actor'] = $actor;
        } elseif (!isset($this->attributes['SOAP-ENV:actor'])) {
            $this->attributes['SOAP-ENV:actor'] = 'http://schemas.xmlsoap.org/soap/actor/next';
        }
        $this->attributes['SOAP-ENV:mustUnderstand'] = (int)$mustunderstand;
    }

}

/**
 * SOAP::Attachment
 * this class converts values between PHP and SOAP
 * it handles Mime attachements per W3C Note on Soap Attachements at
 * http://www.w3.org/TR/SOAP-attachments
 *
 *
 * @access public
 * @package SOAP
 * @author Shane Caraveo <[e-mail]> Conversion to PEAR and updates
 */
class SOAP_Attachment extends SOAP_Value
{
    /**
     * Constructor
     *
     * @param    string  name of the soap-value <value_name>
     * @param    mixed   soap header value
     * @param    string namespace
     */
    function SOAP_Attachment($name = '', $type = 'application/octet-stream',
                             $filename, $file = null)
    {
        global $SOAP_options;
        if (!isset($SOAP_options['Mime'])) {
            return PEAR::raiseError('Mail_mime is not installed, unable to support SOAP Attachements');
        }
        parent::SOAP_Value($name, null, null);

        $filedata = ($file === null) ? $this->_file2str($filename) : $file;
        $filename = basename($filename);
        if (PEAR::isError($filedata)) {
            return $filedata;
        }

        $cid = md5(uniqid(time()));

        $this->attributes['href'] = 'cid:'.$cid;

        $this->options['attachment'] = array(
                                'body'     => $filedata,
                                'disposition'     => $filename,
                                'content_type'   => $type,
                                'encoding' => 'base64',
                                'cid' => $cid
                               );
    }

    /**
     * Returns the contents of the given file name as string
     * @param string $file_name
     * @return string
     * @acces private
     */
    function &_file2str($file_name)
    {
        if (!is_readable($file_name)) {
            return PEAR::raiseError('File is not readable ' . $file_name);
        }
        if (!$fd = fopen($file_name, 'rb')) {
            return PEAR::raiseError('Could not open ' . $file_name);
        }
        $cont = fread($fd, filesize($file_name));
        fclose($fd);
        return $cont;
    }

}